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In der heutigen Zeit — im Computerzeitalter — lassen sich Taschencomputer wie der 
HP-41CX gar nicht mehr wegdenken. Solche Kinder der Technik sind wahre Wunderwerke 
des Menschen und seines Denkens. Wenn man bedenkt, daß der HP-41CX vor ca. 20 Jah- 
ren so groß wie ein Einfamilienhaus gewesen wäre, kann man sich ungefähr ein Bild davon 
machen, welch gewaltiger Fortschritt in einem solchen elektronischen Gerät steckt. 


Welchen Sinn hat aber ein „Taschenrechner‘' mit annähernd 250 Operationen im täg- 
lichen Leben ? 

Diese und ähnliche Fragen muß man sich selbst beantworten, denn jeder Mensch hat 
andere Bedürfnisse und keiner sieht in einem solchen Apparat das gleiche. 

Was sehen die Benutzer, Programmierer und Techniker in einem solchen Gerät? 
Sicherlich nicht das Wunderding, das jene Personen in ihnen sehen, die diesen ‚Dingen der 
Zukunft‘ aus dem Wege gehen, sondern ein unterstützendes und praktisches Hilfsmittel, 
mit dem sich außer den mathematischen Problemen noch eine Vielzahl anderer Aufgaben 
bewältigen lassen. 

Freilich, überall sind Schranken gesetzt, so auch hier. Aber wenn man nicht an die Schran- 
ken herangeht, sie untersucht und sich mit ihnen beschäftigt, so wird man kaum jemals 
über sie hinwegkommen, sondern sie immer nur als Hindernis im Wege sehen. 

Die Probleme die ich damit angesprochen haben möchte, lassen sich kurz erklären: 

Die größte Schwierigkeit bei diesen kleinen Computern ist die Rechengeschwindigkeit. Sie 
läßt sich leider nicht mit dem minimalen Stromverbrauch in Einklang bringen; aber man 
muß ja irgendwo immer Abstriche machen. Hier möchte ich allerdings gleich erwähnen, 
daf3 der Hewlett-Packard-Rechner wohl einer der schnellsten unter den Rechnern in dieser 
Größen- und Leistungsklasse ist. 

Irgendwann, meist nach der Zeit des Erlernens, wird sich dann das Problem des Speicher- 
platzes einstellen. HP hat sich schon vorher eingehend mit diesem Punkt beschäftigt und 
bietet neben den Speichererweiterungsmodulen auch ein Massenspeichermedium in Form 
eines Kassettenlaufwerks an. Zwar ist dies wohl nicht die beste Möglichkeit bezüglich 
Zugriffszeit, aber die Handhabung dieses Zusatzgerätes ist sehr einfach und die Bauweise 
äußerst robust. 

Oft werden die Taschencomputer mit den diversen Mikrocomputern verglichen. Bei 
solchen Diskussionen hält man sich besser in seiner Meinungsäußerung zurück, außer man 
besitzt von beiden Klassen ein oder mehrere Exemplare. Probieren Sie es einmal aus und 
mischen Sie bei so einer Debatte mit; Sie werden feststellen was ich gemeint habe. Am 
Ende dieses Gesprächs werden Sie wissen, daß man Birnen und Zwetschgen kaum ver- 
gleichen kann. 


Hinweise für die Programmierung 


Leider bietet eine Schreibmaschine nicht die Möglichkeit, die gleichen Zeichen wie in der 
Anzeige des HP-41 darzustellen. Darum sollten Sie die folgenden Zeilen besonders gut 


durchlesen. 


zeile 


xx 


xX 


Die Ziffern, Zeichen oder Buchstaben die sich zwischen zwei Anführungszeichen befinden, 


Programm- 


LBL "DIV" 


APPEND " " 


APPEND "=" 


"OUTPUT" 


Eingabe 


(SHIFTJLBL- ALPHA- D- I -V- 


ALPHA 


ALPHA — (SHIFT) K - SPACE — ALPHA 
(APPEND: = im Alphamodus die Zweitfunktion 


der Taste ’K’’) 


ALPHA - (SHIFT) K — SPACE — = - 


ALPHA 


ALPHA- O0-U-T-P-U-T- 


ALPHA 


Das Multiplikationszeichen (*) wird im Buch 


durch ein kleines "'x’' ersetzt. 


sind in das ALPHA-Register einzugeben. 


1 Datenspeicherung in einem File 


Wie Sie sicherlich wissen werden, hat der HP-AlCX max. 319 
Datenspeicher. Da dies in manchen Fällen zu wenig sein kann, 
vor allem wenn man lange Programme abgespeichert hat, habe 
ich ein Programm zu Papier gebracht,mit dem Sie Daten in 
einem File abspeichern können, wobei auch eine Register- 
arithmetik möglich ist. Sollten Sie nun 2 Speichererweite- 
rungsmodule in den Rechner stecken, so haben Sie 601 Daten- 


register zur Verfügung. 


1.1 Programmbedienung 


Bevor Sie die Speicherbefehle verwenden können, müssen Sie, 
sofern der File, den Sie benutzen wollen, schon vorhanden 
ist, den Filenamen im ALPHA-Register abspeichern und mit 
XEQ "FLREG" das Pragramm vorbereiten. Somit ist der File 
für die Datenspeicherung der momentane File. Sollte noch 
kein File für die "Registerarithmetik im erweiterten 
Speicher" vorhanden sein, so geben Sie im ALPHA-Register 
den Filenamen und im X-Stack die Anzahl der benötigten 
Register bekannt. Ebenso mit XEQ "FLREG" die Software 
starten. Nun ist der File für die Registerarithmetik vor- 
handen, außerdem ist dieser File der momentane File. 

Die einzelnen Befehle können mittels einer XEQ-Anweisung 


bzw. Tastenzuordnung oder über das Label "FLAR" benützt 


Datenspeicherung 


werden. Das Label "FLAR" ermöglicht es, in einer sich 
öfter wiederholenden Programmschleife verschiedene File- 
registeroperationen auszuführen, wobei die auszuführende 


Operation im ALPHA-Register bekanntgegeben wird. 


1.2 Anweisungsliste 


Prog. 


Zeile Befehl Kurzerklärung 


21 LBL "FLREG" Dieser Programmtei] dient dazu, einen 


B2 SF 25 File anzulegen bzw,, sollte dieser 

B3 Rt schon vorhanden sein, diesen zum 

D4 CLX momentanen File zu erklären. 

25 SEEKPTA File anlegen (noch kein File vorhanden): 
B6 FC?C 25 Filenamen = ALPHA-Register 

27 GTO 15 Registeranzahl = X-Stack 

8 RTN File vorhanden: 

29 LBL 15 Filenamen = ALPHA-Register 

19 RDN Jeweils Programmstart mit XEQ "FLREG". 
11 CRFLD 

12 RTN 

13 LBL "FLAR" Der Befehi "FLAR" ermöglicht ein 

14 SF 9B indirektes Arbeiten mit den File- 

15 Rt operationen des Programms. Den zu 

16 ASTO X bearbeitenden Befehl speichern Sie im 
17 GTO IND X ALPHA-Register und starten, nachdem 


Sie die Daten je nach Operation ein- 


gegeben haben, mittels XEQ "FLAR". 


Datenspeicherung 


18 
19 
2p 
21 
22 
23 
24 


39 
31 


LBL "FLSTO" 
XEQ 22 
x<>y 
SEEKPT 
x<?>y 

SAVEX 

RTN 


LBL "FLREL" 
XEQ 22 
SEEKPT 

GETX 

RTN 


LBL "FL+" 
LBL 16 


Beispiel: 59,4 ist zum Inhalt des File- 


registers Nr. 1ß zu addieren. 


37 
38 

30 "FL+" 
aa 1Pp 

41 ENTER 
12 59,4 


43 XEQ "FLAR" 
44 


45 


Abspeichern von Daten im File (gleicht 
dem Befehl STO). 

Vor Programmstart: 

Fileregisternummer = Y-Stack 

Zahl = X-Stack 

Nach Bearbeitung: 

Fileregisternummer = Y-Stack 


Zahl = X-Stack 


Rückrufen von Daten aus dem File (gleicht 
dem Befehl] RCL). 

Vor Programmstart: 

Filereoisternummer = X-Stack 


Nach Bearbeitung: 


Fileregisternummer Y-Stack 
Zahl = X-Stack 
Diese Befehle sind ähnlich den 


Operationen ST+, ST-, STx und ST/, 


Datenspeicherung 


32 
33 
34 
35 
36 
37 
38 
39 
49 
4] 
42 
43 
44 
45 
46 
47 
48 
49 
5p 
51 
52 


53 


54 
55 
56 
57 
58 
59 
69 
61 
4 


XEQ 22 
x<>y 
SEEKPT 
x<?y 
GETX 

FS?C Bl 
GTO 18 
FS?C P2 
GTO 19 
FS?C 93 
GTO 29 

+ 

LBL 21 
x<?y 
SEEKPT 
x<>Dy 
SAVEX 

RTN 

LBL "FL-" 
SF 91 

6TO 16 
LBL "FLx" 
SF 22 

GTo 16 
LBL "FL/" 
SF 93 
GTO 16 
LBL 18 
xDdy 


wobei hier nach der Berechnung das 
Ergebnis im X-Stack und im File 
enthalten ist. 

Vor Programmstart: 


Y-Stack 


Fileregisternummer 
Zahl = X-Stack 

Nach Bearbeitung: 
Fileregisternummer = Y-Stack 


Ergebnis = X-Stack 


Datenspeicherung 


GTO 21 
LBL 29 
x<>y 
/ 

GToO 21 
LBL 22 
FC?C 99 
RTN 
CLX 
RDN 
RTN 


LBL "FLOP RE" 
XEQ 22 
SEEKPT 
GETX 

x<> IND z 
xry 
SEEKPT 
x<>y 
SAVEX 

RCL IND y 
RDN 

RDN 

RTN 


(Nicht über "FLAR" möglich!) 
Dieser Programmteil tauscht einen 
Fileregisterinhalt mit dem Inhalt 
eines Datenregisters. 
Vor Programmstart: 
Datenregisternummer = Y-Stack 
Fileregisternummer = X-Stack 
Nach Bearbeitung: 

Inhalt vom Datenregister vor 
Bearbeitung = T-Stack 


Inhalt vom Fileregister vor 


Bearbeitung = Z-Stack 
Datenregisternummer = Y-Stack 
Fileregisternummer = X-Stack 


Datenspeicherung _ 


89 
9p 
91 
92 
93 
94 
95 


LBL "FLIND" 
xc2y 
SEEKPT 

x? y 

GETX 

xy y 

GTO "FLAR" 


(Nicht über "FLAR" möglich!) 

Im Y-Stack geben Sie jenes File- 
register an, das die Parameter 

für den im ALPHA-Register spezifizierten 
Befehl und im X-Stack gespeicherte 

Zahl aufweist. 

Beispiel: "ST+" = ALPHA-Register 


6 Y-Stack 


u 


5 X-Stack 
Im Fileregister Nr. 6 = 4 und im 


Fileregister Nr. 4 = 19 enthalten. 


Im Register Nr. 6 findet der Rechner 
die Parameterangabe 4, jetzt addiert 
er den Registerinhalt des Fileregisters 
Nr. 4 mit dem Inhalt des X-Stacks. 
Das Ergebnis wird im X-Stack bzw. 
Fileregister Nr. 4 abgespeichert. 

Vor Programmstart: 

Fileoperation = ALPHA-Register 
Fileregister, das den Parameter 
enthält = Y-Stack 

Zahl = X-Stack 

Nach Bearbeitung: 

Fileregister, das den Parameter 
enthalten hat = Z-Stack 

Inhalt des mit dem Parameter 
spezifizierten Registers = Y-Stack 


Ergebnis = X-Stack 


96 


97 

98 

99 

109 
191 
192 
193 
194 
195 
1P6 
197 
198 
199 
119 
ill 
112 
113 


114 
115 
116 
117 
118 
119 
129 
121 
122 
123 


Datenspeicherung 


LBL "FLÄD FL" 
XEQ 22 
SEEKPT 
GETX 
x? 2 
SEEKPT 
GETX 
x? 2 
SEEKPT 
02 
SAVEX 
xe?y 
SEEKPT 
xi>t 
SAVEX 
RDN 
RDN 
RTN 


LBL "FLCLX" 
XEQ 22 

LBL 99 
SEEKPT 
ENTER 

CLX 

XEQ "FLSTO" 
RDN 

1 


+ 


(Nicht über "FLAR" möglich!) 
Austauschen zweier Fileregister. 
Vor Programmstart: 

l. Fileregisternummer = Y-Stack 
2. Fileregisternummer = X-Stack 
Nach Bearbeitung: 

Inhalt 1. Fileregister vor 


Bearbeitung = T-Stack 


Inhalt 2. Fileregister vor 
Bearbeitung = /-Stack 

l, Fileregisternummer = Y-Stack 
2. Fileregisternummer = X-Stack 


Löschen von Registerbereichen. 
Vor Programmstart: 

Das letzte zu löschende 
Register = Y-Stack 

das erste zu löschende 
Register = X-Stack 

Den ganzen Inhalt des Files löschen 
Sie mit dem Befehl "CLFL", der im 


Benutzerhandbuch auf Seite 213 


Datenspeicherung 


124 
125 
126 
127 


128 


xC =y? 
GTO PP 
CLST 
RTN 


END 


beschrieben ist. 


Programmende 


2 Sortieren von Zahlen 


Diese Software verwendet als Subroutine Teile des Programms 
"FLREG"! Sollten Sie den Speicher mit zwei Memory-Modulen 
erweitert haben, so können Sie bis zu 601 Daten sortieren. 


Leider ist der Zeitaufwand sehr hoch. 


2.1 Bedienungshinweise 

Eingabe 

Start mit XEQ "INPUT". Kurz darauf erscheint "HOW MANY?" 
in der Anzeige. Sie müssen dem Rechner nun bekanntgeben, 
wieviel Daten Sie sortieren wollen. Die Eingabe bestätigen 
Sie mit R/S. Als nächstes verlangt der Computer schon die 


Zahlen, wobei Sie jedesmal mit R/S abschließen. 


Sortieren 
Start mit XEQ "SORT", oder, wenn bei der Eingabe "END" in 
der Anzeige erscheint, mit R/S. Bei Beendigung des Programms 


ertönt ein Ton, und der Computer bleibt stehen. 


Ausgabe 


Die Daten rufen Sie mit "FLRCL" ab, 


Beispiel: Sortieren von den folgenden 1 Zahlen: 


37, 12; 8; 9; 41, 812; 7,2, 419,2, 8,1; 81. 


Sortieren 


EINGABE ANZEIGE 
XEQ "INPUT" "HOW MANY?" 
EINGABE ANZEIGE 
1P R/S p,2nap 
37 R/S 37,2R2p92 
12 R/S 12,99pp 
8 R/S 8,2p9R 
9 .R/S 9,2999 
41 R/S 41,9929 
812 R/S 812,2992 
132 RYS 7 ,2ppp 
419,2 R/S 419,222Pp 
8,1 R/S 8,1Pp9 
81 R/S 81,2Bp2p 
xEQ "SORT" 9,2202 
Nach Beendigung des Sortiervorganges 
EINGABE ANZEIGE 
PB XEQ "FLREL" 7,2BRPB 
1 XEQ "FLREL" 8,2992 
2 XEOQ "FLREL" 8,1298 
3 XEQ "FLRECL" 9,2RpB 
4 XEQ "FLRCL" 12,PP92 
5 XEQ "FLREL" 37,8999 
6 XEQ "FLPRCL" 41,2922 
7 XEQ "FLREL" 81,229 
8 XEQ "FLREL" 419,2229 
9 XEQ "FLREL" 812,009 


2.2 Anweisungsliste 


Prog. 


Zeile Befehl 


LBL "INPUT" 
"HOW MANY?" 
PROMPT 
"SORT" 

SF 25 

PRUFL 

CF 25 

XEQ "FLREG" 
CLX 

LBL 922 

STOP 

SF 25 

SAVEX 

FS?C 25 

GTO pp 
"END" 
PROMPT 

LBL "SORT" 
CLX 


STOo 22 


sTo 21 
LBL 15 
RCL 99 
XEQ "FLREL" 
RCL 21 


Prog. 


Zeile 


27 
28 
29 
32 
31 
32 
33 
34 
35 
36 
3:7 
38 
39 
ap 
41 
42 
43 
44 
45 
46 
47 
48 
49 
59 
51 
52 


Befehl 


XEQ "FLREL" 
x<>y 

RDN 

x<y? 

GTO 16 

LBL 17 


ST+ 21 


RCL Pl 
SF 25 
SEEKPT 
RDN 
FS?C 25 
6To 15 
x<ry 
RCL PB 
x<ry 
xXEQ "FLSTO" 
1 

ST+ 99 
RCL 99 


SsTo 21 


„Sortieren 


Sortieren i 


53 
54 
55 
56 
57 
58 
59 
692 
61 
62 
63 
64 


12 


Zeile Befehl 


SF 25 
SEEKPT 
FS?C 25 
GTO 15 
TONE 5 
CLST 
STOP 
LBL 16 
x<>y 
RCL Pl 
x<>y 
XEQ "FLSTO" 


Prog. 


65 
66 
67 
68 
69 
79 
71 
72 
73 


74 


75 


Zeile Befehl 


x<?y 

RDN 

x»<?y 

RCL PP 
xy 

xXEQ "FLSTO" 
x<?y 

RDN 

x<>y 


GTO 17 


END 


3 Fakultät bis 571 auf eine Stelle genau 


3.1 Hintergrund 


Stellen Sie sich vor, Sie mischen ein Kartenspiel] mit 199 
Karten. Was glauben Sie, wie viele Möglichkeiten gibt es, 
daß diese Spielkarten unterschiedlich aufeinander zu liegen 
kommen? 

1Pß, 12Pß oder 1Pp Ppp? 

Es gibt wohl eine Unzahl mehr Konstellationen. 

Um diese Möglichkeiten zu errechnen, können Sie nicht den 
Befehl "FACT" aus dem Rechner-ROM benutzen, da Ihnen der 
Computer mit "OUT OF RANGE" in der Anzeige stehenbleibt, 
außer Sie haben eine der Flags 24 bzw. 25 gesetzt. Um auch 
bei solchen Problemen noch ein Resultat zu erhalten und um 
eine höhere Genauigkeit zu erzielen, habe ich diese Soft- 
ware entwickelt. 

Dieses Programm ermöglicht es, die Fakultät bis 571 auf 
eine Stelle genau zu errechnen. Es sei vor Rechenbeginn 

zu bedenken, daß bei Fakultät von 571 das Ergebnis nahezu 
1338 Stellen aufweist. Außerdem sollten Sie sich nicht 
wundern, wenn Sie auf das Resultat etliche Stunden warten 
sollten, es geht eben nicht schneller. Sicherlich könnte 
man dieses Programm mit dem Worte "Spielerei" auf die 
Seite schieben. Dies sollte aber nicht Sinn und Zweck 


dieser Software sein, sondern ich wollte einfach zeigen, 


Fakultät bis 571 


wie man mit ein bißchen Kreativität die Grenzen von 19 


Stellen leicht sprengen kann, 


3.2 Programmbedienung und Beispiel 


Die Zahl, von der die Fakultät berechnet werden soll, geben 
Sie in das X-Register und starten das Programm mit XEQ "xN". 
Wenn nun das Ergebnis ermittelt ist, stoppt der Computer 
und hat z. B. 638 = 4932178 in der Anzeige stehen, d.h., 
daß nach der "8" noch 638 Stellen folgen. Mit R/S werden 
Ihnen die nächsten 7 Stellen ausgegeben, Sie müssen diesen 


Vorgang so oft wiederholen, bis "END" in der Anzeige er- 


scheint. Im Normalfall weist jede Ausgabe 7 Stellen auf, außer 


es sind führende Nullen vorhanden, z.B. Anzeige 77 = 342ß6 
eigentliches Ergebnis 77 = 8934296. 


Beispiel: n= 13 


EINGABE ANZEIGE 

13 XEQ "xN" 7 = 622 
R/S pP = 7n2n8pM 
R/S "END" 


Verwendete Register: ß bis 4 und 


1B bis 199 


14 


Fakultät bis 871 


Prog. 


Zeile Befehl Kurzbeschreibung 


l LBL "xN" Programmbezeichnung 

2 INT Kommastellen und "User Flag" löschen 
3 CF 27 

4 572 Vergleichen, ob 572 kleiner oder 

5 x<=y? gleich der Eingabe (mit Eingabe ist 
6 GTO 22 die Zahl, aus der die Fakultät 


berechnet werden sol], gemeint) ist. 
Sollte dieser Vergleich mit ja 
(do if true) beantwortet werden 


können, so wird zu Label 22 gesprungen. 


7 CLX 292 Register dem Datenspeicher 

8 299 zuordnen. 

9 PSIZE 

19 CLRG Register löschen. 

11 RDN Die Eingabe in Register ® und 1P ab- 
12 sTo 29 legen. Das Register ® enthält den 

13 STo ıp Multiplikationsfaktor, mit dem die 


Datenspeicher 19 bis 199 multipliziert 


werden, 
14 l l vom Multiplikationsfaktor 
15 ST- 22 (ehemalige Eingabe) subtrahieren. 


15 


Fakultät bis 571 


16 
17 


18 
19 
2ß 
21 
22 


23 
24 
25 
26 
27 
28 
29 
32 
31 
32 


33 
34 
35 
36 
37 
38 


39 
16 


12 
SsTo 21 


LBL 16 
RCL 92 
STx IND 21 
RCL 2 
ST+ IND Pl 


1 E97 

ST/ IND pl 
RCL IND 91 
INT 

STo 22 

RCL IND 21 


STO IND 21 


12 in Register 1 speichern. Register 
1 dient als Datenspeicherzeiger für 
die indirekte Adressierung der 


Registerarithmetik. 


Multiplikationsfaktor mit dem in 
Register 1 definiertem Datenspeicher 
multiplizieren und den Überlauf 
addieren. Ein Überlauf entsteht dann, 
wenn mehr als 7 Stellen in einem 


Datenspeicher (Reg. 1® - 199) sind. 


Den Überlauf errechnen, vom Daten- 
speicher subtrahieren und in Register 


2 ablegen. 


Den Datenspeicher um 1 erhöhen und 
abfragen ob der Zeiger auf Register 
2ßß weist, bei Beantwortung mit "JA" 


zu Labe] 18 verzweigen. 


49 
4 
42 


43 
44 
45 
46 


47 
48 
49 
59 
51 
52 


53 
54 
55 


56 
57 
58 
59 
69 
61 
62 
63 


Fakultät bis 571 


RCL IND 91 
#8? 
GTO 16 


RCL P2 
STO IND Bl 


STO 22 


ST+ 3 


RCL P3 


GTO 17 


LBL 18 


CLX 


STO 93 


sTo pl 


Vergleichen, ob der nächste Daten- 
speicher ungleich ß ist, bei "JA", 


Rücksprung zu Label 16. 


überlauf im leeren Datenspeicher ab- 
legen und Überlaufregister (Reg. 2) 


löschen, 


Abfrage, ob die nächsten 19 Daten- 
speicher leer sind, ist diese Abfrage 


positiv, Rücksprung zu Label 17. 


Register 3 löschen. 


Datenspeicherzeiger auf 19 
zurücksetzen. 

Multiplikationsfaktor um ] verringern 
und vergleichen, ob er ungleich 1] ist, 


bei "JA", Rücksprung zu Label 16. 


Skull aA >... 


64 
65 


66 


67 


68 
69 


79 
71 
72 
73 
74 


75 
76 
77 
78 
79 
82 
8l 
82 


83 


RCLFLAG 


sto 94 


FIX 28 


CF 29 


sTto 91 


LBL 23 

RCL IND 91 
x=ßB? 

GTO 21 


BEEP 


ARCL X 


APPEND " =" 


Flags 8 bis 43 im Register 4 speichern 
(Hier beginnt der Programmteil für 


die Ausgabe des Ergebnisses.) 


Keine Kommastellen. 


Zifferntrennzeichenflag löschen. 


Datenspeicherzeiger auf 199 setzen. 


Datenspeicher mit ® vergleichen, bei 


"JA", Sprung zu Label 21, Wenn erster 


besetzter Datenspeicher gefunden ist, 


wird eine Tonkombination abgegeben. 


Außer den angezeigten Stellen die 
noch vorhandene Stellenanzahl berechnen 


und ins Alpharegister bringen, 


An das Alpharegister "SPACE" und "=" 


anhängen. 


84 
85 


86 
87 
88 
89 
99 
91 
92 
93 
94 
95 
96 


97 
98 
99 
1pp 


1pl 


192 


193 


1p4 


ARCL IND P1 


PROMPT 


1 

ST- 21 
RcL pl 
9 

xy? 
GTo 24 
RCL 94 
STOFLAG 
CLST 
"END" 


PROMPT 


LBL 22 
"ERROR" 
PROMPT 


END 


Inhalt des Datenspeichers an das 


Alpharegister anhängen. 


Datenspeicherzeiger um ] verringern 
und vergleichen, ob ungleich 9, 

bei "JA", Rücksprung zu Label 24, 
ansonst Flag @ bis 43 mit dem in 
Register 4 enthaltenen Wert 
restaurieren, Stack löschen, "END" 


anzeigen und Programm stoppen. 


Datenspeicherzeiger um 1 verringern 


und Rücksprung zu Labe} 23. 


"ERROR" anzeigen und Programm stoppen. 


Programmende 


19 


4 Mischen von Ziffern, Zahlen oder Zeichen 


4.1 Grundsätzliches 


Nehmen Sie vier Blätter Papier und schreiben Sie je einen 
Buchstaben des Wortes "ROSE" auf ein Blatt. Jetzt ver- 
tauschen Sie die Blätter untereinander. Diese Buchstaben 
bilden nun maximal 24 (Fakultät aus 4 = 24) neue Wörter, 
wobei die meisten keine Bedeutung haben. Das gleiche 

läßt sich zum Beispiel] mit Zahlen wiederholen. 

Mit diesem Programm wird es Ihnen möglich, max. 19 Ziffern, 
Zahlen und Zeichen ohne großen Aufwand zu mischen. Leider 


ist der Zeitaufwand relativ hoch. 


Beispiel: "ROSE" = ALPHA-Register 


xEQ "MIS" 


ROSE - ORSE - RSOE - SROE - OSRE - SORE - ROES - ORES - 
REOS - EROS - OERS - EORS - RSEO - SREO - RESO - ERSO - 
SERO - ESRO - OSER - SOER - OESR - EOSR - SEOR - ESOR - 


Bei jeder neuen Stellung der Zeichen wird ein Ton ausge- 
geben und die neue Zeichenformation in die Anzeige ge- 
bracht. Die letzte Ausgabe wird durch die BEEP-Anweisung 
akustisch bekanntgegeben und bleibt daraufhin noch ca. 


2 Sekunden sichtbar, 
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4.2 Anweisungsliste 


Prog. 

Zeile Befehl] 
1 LBL "MIS" 
2 CLX 
3 x<yF 
4 CF PB 
5 CF 99 
6 ‚B15 
7 CLRGX 
8 1p 
9 sTo 14 
1P ATOX 
11 LBL pp 
12 STo IND 1 
13 1 
14 ST+ 11 
15 ST+ 19 
16 ELST 
i7 ATOX 
18 x#y? 
19 GTO 29 
2 1 
21 ST- ıı 
22 RCL 11 
23 ENTER 9 
24 LBL P1 
25 RDN 
26 ST+ 13 


Prog. 


27 
28 
29 
39 
3l 
32 


Zeile Befehl 


RCL 14 
STx 13 
RDN 


Mischen 


21 


Mischen  _ 


Prog. 


Zeile 


53 
54 
55 
56 
57 
58 
59 
69 
61 
62 
63 
64 
65 
66 
67 
68 
69 
78 
71 
72 
73 
74 
75 
76 
77 
78 
79 
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Befehl 


RDN 

FS? IND X 
GTO 17 

SF IND X 
RCL IND X 
XTOA 

DSE 19 
6T0 15 
AVTEW 


Prog. 


Zeile Befehl 


82 TONE 5 
81 CLA 
82 CLX 

83 x&> F 
84 CF 98 
85 cF 99 
86 LBL 17 
87 CLA 

88 CLX 

89 x<?F 
99 CF 98 
91 CF 99 
02 l 

93 ST- 13 
94 RCL 13 
95 RCL 12 
96 x&=y? 
97 GTO 18 
98 BEEP 
99 CLST 
122 ELX 
191 PSE 
192 PSE 
193 CLD 
184 STOP 
125 END 


verwendete Register: 


B bis 15 


5 Division auf unendlich 


Um herauszufinden, ob jede Division ein periodischer 
Dezimalbruch ist, hat ein Kollege in Zusammenarbeit mit 


mir dieses Programm entwickelt. 


5.1 Programmbedienung 


Nachdem der Dividend im Y-Register und der Divisor im 
X-Register ist, starten Sie das Programm mit XEQ "DIV". 
Zuerst wird der ganzzahlige Teil der Division ausgegeben, 
danach folgen die Kommaste!len. Die Ergebnisse sind 
jeweils 15 Sekunden lang sichtbar. Ihre Länge umfaßt außer 
der ersten Ausgabe ausnahmslos 1 Stellen. 

Um das Programm stoppen zu können, müssen Sie warten bis 
der Indikator für die Flag PP aufscheint, sobald Sie 

diese in der Anzeige sehen, betätigen Sie die Taste für 


den Dezimalpunkt. 


Beispiel: 4P91 ENTER AUSGABE 
319 12 
XEQ "DIV" 5423197492 
1639094943 
8871473354 
2319749216 
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Division 


5.2 Anweisungsliste 


Prog. 


Zeile Befehl Kurzbeschreibung 
l LBL "DIV" Programmname 
2 STo p2 Divisor im Register 2 und 
3 RDN Dividenden im Register 1 speichern. 
4 sto pl register 3 und ALPHA-Register löschen, 
5 CLX 
6 STO 83 
7 CLA 
8 RELFLAG Den Status der Flags ® bis 43 im 
9 STO 22 Register 2 speichern. 
18 FIX 2 Keine Dezimalstellen anzeigen. 
11 RCL P1 Division von Dividend und Divisor. 
12 RCL 22 
13 / 
14 INT Vom Ergebnis die Dezimalstellen löschen, 
15 CF 29 Zifferntrennzeichenflag zurücksetzen 
16 TONE 1 und einen tiefen Ton abgeben, 
17 ARCL X Den Wert im X-Stack in das ALPHA- 
18 GTO 16 Register übertragen und zu Label 16 


verzweigen. 
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Division 


19 
29 
ei 
22 
23 
24 
25 


26 
27 
28 
29 


39 
31 
32 
33 
34 
35 


36 
37 
38 


39 
49 
al 


LBL 15 
Rcı. pl 
RCL P2 


Den Restwert der Division von 
Dividend und Divisor errechnen, mit 
18 multiplizieren und als neuen 


Dividenden im Register P abspeichern, 


Den neuen Dividenden mit dem Divisor, 
dieser bleibt immer gleich, dividieren, 
die Kommastellen löschen und das 
Ergebnis in das ALPHA-Register über- 


tragen. 


Sollten noch keine 1ß Stellen er- 
rechnet sein, zurückspringen zu 


Label 15. 


Register 3 löschen und einen hohen 


Ton abgeben, 


Das ALPHA-Register in das Anzeige- 


Register übertragen und löschen. 
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Division 


42 
43 
44 
45 
46 
47 


48 


49 


5p 


51 


52 


5.3 


54 
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SF 9p 
GETKEY 
CF 98 
83 
xty? 
GTO 15 


RCL PB 
STOFLAG 
CLD 
CLA 


CLST 


STOP 


END 


Abfrage, ob die Dezimalpunkttaste 
gedrückt wird, bei nein, Rücksprung 


zu Label 15. 


Restaurieren der Flags ® bis 43 und 
löschen des Anzeige-, des ALPHA- und 


der Stack-Register. 


Programmstop 


Programmende 


6 Terminverwaltung 


Durch die Gelegenheit, mittels genauer Zeit- und Datums- 
angaben ein Programm zu einer bestimmten Zeit zu starten, 
wird es möglich den Rechner als Terminkalender zu ver- 


wenden. 


6.1 Die Software 


Das Programm verwendet die Register B bis 6 und einen 
File im erweiterten Speicher. Die Software läßt sich in 
zwei große Teilprogramme unterteilen: 

In "TERMIN" über diesem Label wird der Termin eingegeben 
und in "TERMIN?" mit diesem werden die Termine wieder 


abgerufen. 


"TERMIN" 


Wenn Sie das Programm mit XEQ "TERMIN" gestartet haben 

und noch kein File mit dem Namen "TERM" im erweiterten 
Speicher vorhanden ist, erscheint kurz darauf "REGISTER?" 
in der Anzeige. Sie müssen nun bestimmen, wie groß der File 
für die Terminverwaltung sein soll. Die Eingabe beenden 
Sie mit R/S. Sollten Sie dem File mehr Register zuordnen 
wollen, als Speicherplatz im erweiterten Speicher frei 


ist, so erscheint "EXT MEM CLR" in der Anzeige. Sie 
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Terminverwaltung 


können die Anzeige mit "CLD" löschen. Nun steht im X-Stack 
jene Anzahl von Registern, die im erweiterten Speicher noch 
frei sind. Sie können, wenn Sie den vollen Speicherbereich 
zuteilen wollen, wieder R/S drücken, wobei "REGISTER?" 
nochmals in der Anzeige erscheint. Nun betätigen Sie 
abermals R/S und geben somit die Größe des Fites bekannt. 
Als nächste Abfrage erscheint "TERM, DATE?" im Display. 
Nachdem Sie das Termindatum eingetastet haben, schließen 
Sie die Eingabe mit R/S ab, daraufhin erscheint 

"TERM. TIME?". Gleich wie beim Termindatum tätigen Sie 
die Eingabe der Terminzeit R/S. Sollte die Terminzeit 
später als 23 Uhr sein, so wird eine Sekunde lang 

"TOO LATE" angezeigt und zur Terminzeitabfrage zurückge- 
sprungen. Mittels "TEXT" in der Anzeige erinnert der 
Computer, daß Sie auch eine Mitteilung bzw. Notiz abspeichern 
können. Geben Sie nun den Text ein (Achtung max. 24 
Zeichen!) und schließen Sie mit R/S ab. Es erscheint die 
Frage "END J/N?". Betätigen Sie "N" für "NEIN", können Sie 
weiteren Text abspeichern. Diesen Vorgang können Sie so 
oft wiederholen, bis die Maximallänge eines Records erreicht 
ist. Bei "JA" (Drücken auf die Taste "J") stoppt der 
Rechner. Sollten Sie einen weiteren Termin zum abspeichern 
haben, so müssen Sie das Programm erneut mittels XEQ 
"TERMIN" starten. 

Im erweiterten Speicher werden die Termine nicht geordnet, 
sondern nach ihrer Eingabe abgespeichert. 

Jeden Tag um 23 Uhr 58 Minuten schaltet sich der Rechner 


ein und löscht sämtliche an diesem Tag aufgerufene Termine. 
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Terminverwaltung 


"TERMIN?" 


Das Programm starten Sie mit XEQ "TERMIN?". Kurz darauf 
erscheint in der Anzeige "ALL? J/N",d.h., wollen Sie alle 
Termine oder nur jene, welche Sie mit einem Datum 
spezifizieren, abrufen? Sollten Sie die Taste "J" (ja) 
betätigen, so werden die Termine, so wie sie im File 
abgespeichert wurden, aufgerufen. Da im ALPHA-Reaister 

nur 24 Zeichen Platz haben, müssen Sie, nachdem Sie die 

24 Zeichen gelesen haben, mit R/S abschließen. In der 
Anzeige erscheint darauf "LOOK/NEXT/END", wobei Sie, um 
weiteren Text zu bekommen, die Taste "L" für (LOOK) drücken 
müssen bzw. die Taste "N" für "NEXT", wenn Sie den nächsten 
Termin haben wollen, Um einen Programmstop zu bewirken, 
brauchen Sie nur die Taste "E" für "END" betätigen. 
Sollten Sie nun beim Beginn (Abfrage "ALL? J/N") nichts 
drücken, "N" drücken oder eine andere Taste betätigen, so 
erscheint in der Anzeige "DATUM?". Ihre Datumseingabe 
beenden Sie mit R/S. Wird für diesen Tag ein Termin gefunden, 
so erscheint die Alarmzeit mit "XX,XX WHO J/N" in der 
Anzeige. D.h. wollen Sie wissen,wer, wen oder was Sie zu 
diesem Zeitpunkt besuchen müssen, so drücken Sie "J" für 
"JA" und "N" für "NEIN". Wenn Sie "N" betätigen, so wird 
der nächste Termin gesucht, sollte wiederum einer gefunden 
werden, wird er gleich angezeigt, wie der vorhergehende. 
Sie haben von neuem die Wahlmöglichkeit, sollte keiner 
gefunden werden stoppt der Rechner. Bei Betätigen der 
"J"-Taste erscheinen die ersten 24 Zeichen vom Record, da 


die Anzeige nur 24 Zeichen aufnimmt. Nachdem Sie den Text 
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Terminverwaltung 


gelesen haben, schließen Sie mit R/S ab. Nun erscheint die 
Abfrage "LOOK/NEXT/CLR". Sollten Sie mehr Text benötigen, 
drücken Sie "L" (LOOK). Wenn Sie den nächsten Termin sehen 
wollen, sofern einer vorhanden ist, drücken Sie die Taste 
"N" für "NEXT"; wenn der angezeigte Termin hinfällig ist, 
Sie ihn somit löschen wollen, betätigen Sie "C" für "CLEAR" 
Der Termin wird gelöscht, und sofern noch ein Termin für 
diesen Tag vorhanden ist, wird dieser angezeigt, wobei Sie 
gleich vorgehen wie bei den vorherigen Terminen. Sollten 
Sie keine der drei Tasten "L","N" oder "C" innerhalb 

von 19 Sekunden betätigen oder eine falsche, so erscheint 


wieder "LOOK/NEXT/CLR". 


Terminerinnerung 


Eine halbe Stunde vor jedem Termin meldet sich der Rechner 
mit 5 BEEP-Anweisungen und fragt, ob er den Termin ver- 
gessen (Taste "N"), oder ob er ihn mit dem Text anzeigen 
soll (Taste "J"). Sollte in den nächsten 198 Sekunden 

nach dem Alarm keine Taste betätigt werden, so meldet 

sich der Rechner nochmals 15 Minuten vor dem Termin. Bei 
der zweiten und daher letzten Terminerinnerung meldet 

sich der Computer mit 1ß BEEP-Anweisungen und fragt, ob 
irgendeine Taste gedrückt wird, womit Sie ihm befehlen, 
den Termin auszugeben. Wird keine Taste betätigt, so wird 


der Termin automatisch gelöscht. 
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6.2 Anweisungsliste 


Prog. 


Zeile 


Befeh] 


LBL "TERMIN" 


RCLFLAG 
sTo 22 
CLST 

SF 25 
"TERM1" 
SEEKPTA 
FC?C 25 
XEQ 15 
FIX 6 
"TERM. 
PROMPT 
STo 99 
CLA 
ARCL X 
APPEND 
APPREC 
FIX 2 
LBL 47 
CLX 
"TERM. 
PROMPT 
RND 

23 
x<y? 


6T0 48 


DATE?" 


TIME?" 


Prog. 
Zeile 


27 
28 
29 
32 
31 
32 
33 
34 
35 


sl 
52 


Befehl 


RDN 
sTo pl 

CLA 

ARCL X 
APPEND " " 
APPCHR 

FIX 6 

CLST 

RCL 99 

RCL Pl 

„3 

HMS- 

"44 TERM2" 
XYZALM 

LBL 17 
"TEXT" 

AON 

STOP 

AOFF 
APPCHR 

LBL 18 
"END J/N?" 
AVTEM 
GETKEY 

CLD 

al 
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Prog. 


Zeile Befehl] 


53 x=y? 

54 GToO 17 
55 RDN 

56 25 

57 x#y? 

58 GTO 18 
59 CLD 

69 RCL 92 
61 STOFLAG 
62 CLA 

63 CLST 

64 STOP 

65 LBL 15 
66 "REGISTER?" 
67 PROMPT 
68 EMROOM 
69 x<y? 
78 GTO 16 
7ı RDN 

72 "TERML" 
73 CRFLAS 
74 CLST 

75 DATE 

76 23,5 

77 "HETERMA" 
78 XYZALM 
79 RTN 


Prog. 

Zeile Befehl 

89 LBL 16 

81 "EXT MEM CLR" 
82 PROMPT 

83 GTO 15 

84 LBL "TERM2" 
85 TIME 

86 sTo 21 

87 RCLFLAG 

88 STo 22 

89 5 

99 sTto p9 

9] LBL 22 

92 BEEP 

93 DSE 22 

°4 GTO 29 

95 "OUTP. J/N?" 
96 AYTENW 

97 GETKEY 

98 25 

99 x=y? 

128 GTO 21 

1p1 RDN 

192 41 

193 x=y? 

124 OFF 

185 cLd 

186 CLST 


Terminverwaltung 


Prog. 


Zeile 


197 
198 
1p9 
118 
111 
112 
113 
114 
115 
116 
117 
118 
119 
122 
121 
122 
123 
124 
125 
126 
127 
128 
129 
139 
131 
132 
133 


Prog. 

Befehl Zeile Befehl 
DATE 134 OFF 
RCL 21 135 FIX 2 
FIX 2 126 RCL pl 
RND 137 RND 
‚15 138 ‚15 
HMS+ 139 HMS+ 
"HR TERM3" 149 GTo 22 
XYZALM 141 LBL 21 
RCL 2 142 FIX 2 
STOFLAG 143 RcCL 91 
CLST 144 RND 
OFF 145 Bi) 
LBL "TERM3" 146 HMS+ 
TIME 147 LBL 22 
STo 21 148 Cı.D 
RCLFLAG 149 sTo pl 
STO 92 158 "TERML" 
19 151 CLST 
sTo 22 152 SEEKPTA 
LBL 25 153 CLA 
BEEP 154 FIX 6 
DSE pp 155 DATE 
GTO 25 156 ARCL X 
"TERMIN" 157 APPEND " " 
ANIENW 158 FIX 2 
GETKEY 159 RCL P1 
x=9? 169 ARCL X 
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Terminverwaltung 


Prog. Prog. 

Zeile Befehl Zeile Befehl 
161 POSFL 188 RCL 29 
162 RCL P2 189 ARCL X 
163 STOFLAG 198 LBL 24 
164 CLST 191 POSFL 
165 RCLPT 192 -1 
166 INT 193 x=y? 
167 LBL 25 124 GTO 26 
168 SF 25 195 RCLPT 
169 GETREC 196 FRC 
179 RCLPT 197 x? 
171 INT 198 GTO 24 
192 xty? 199 DELREC 
173 GT0 58 22p GTO 24 
174 FC?C 25 2p1 LBL 26 
175 6TO 59 292 CLST 
176 PROMPT 293 RCL 99 
177 GT 23 ep 1 
178 LBL "TERM4" 295 DATE+ 
179 DATE 296 23,5 
189 STo pp 297 "PETERMA" 
181 RCLFLAG 208 XYZALM 
182 STo p2 229 RCL P2 
183 "TERML" 219 STOFLAG 
184 CLST DIT CLST 
185 SEEKPTA 212 CLA 
186 FIX 6 213 DEF 
187 CLA 214 LBL "TERMIN?" 


Terminverwaltung 


Prog. Prog. 

Zeile Befehl Zeile Befehl 
215 "ALL? J/N" 242 RCL PR 
216 AVIEW 243 x=y? 
217 GETKEY 244 GTO 39 
218 CLD 245 LBL 33 
219 25 246 1 
22B x=y? 247 5ST+ Pl 
221 GTO 39 248 GTO 31 
222 RCLFLAG 249 LBL 39 
223 sTo p5 252 ATOX 
224 "DATUM?" 251 ATOX 
225 PROMPT 252 ASTO X 
226 STO 29 253 RCL 22 
227 1 254 x=y? 
228 STo 91 255 GTO 38 
229 "TERM2" 256 RDN 
238 ASTO 92 257 RCL 93 
231 "TERM3" 258 x#y? 
232 ASTO 93 259 GTO 33 
233 LBL 31 269 5 
234 FIX 6 261 STO 6 
235 RCL 21 262 LBL 36 
236 SF 25 263 RCL 94 
237 RCLALM 264 “<>? y 
238 FC?C 25 265 HMS+ 
239 GTO 35 266 sTo 24 
249 STo 94 267 LBL 32 
241 RDN 268 CLA 
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Prog. Prog. 

Zeile Befehl Zeile Befehl 
269 FIX 2 296 RCL 6 
279 ARCL 94 297 HMS + 
271 APPEND " WHO J/N" 298 ARCL X 
272 AVTIEN 299 POSFL 
273 GETKEY 322 RCLPT 
274 CLD 391 INT 
275 25 392 sTo p4 
276 x=y? 393 LBL 37 
277 GTo 34 394 SF 25 
278 rDN 395 GETREC 
279 al 396 RCL 94 
229 x#y? 397 RCLPT 
281 GTO 32 398 INT 
282 6TO 33 389 x#y? 
283 LBL 34 318 GTO 49 
284 FIX 6 311 FC?C 25 
285 "TERM" 312 GTo 49 
286 CLST 313 PROMPT 
287 SEEKPTA 314 LBL 46 
288 RCL Pl 315 "LOOK/NEXT/CLR" 
289 RCLALM 316 AYIEW 
299 CLA 317 GETKEY 
291 x&>y 318 CLD 
292 ARCL X 319 33 
293 APPEND " " 329 x=y? 
294 xc>y 321 6TO 37 
295 FIX 2 322 RDN 


Terminverwaltung 


Prog. 


Zeile 


323 
324 
325 
326 
327 
328 
329 
339 
331 
332 
333 
334 
335 
336 
337 
338 
339 
349 
341 
342 
343 
344 
345 
346 
347 
348 
349 


Prog. 

Befehl Zeile Befehl 
al 359 PROMPT 
x=y? 351 "LOOK/NEXT/END" 
6TO 33 352 AVIEW 

RDN 353 GETKEY 
13 354 CLD 
xy? 355 CLA 
GTO 46 356 33 

RCL Bl 357 x=y? 
CLALMX 358 GTO 49 
6To 31 359 RDN 
LBL 35 369 al 

RCL 85 361 x=y? 
STOFLAG 362 GTo al 
CLST 363 RDN 
CLA 364 15 
STOP 365 xiy? 
LBL 38 366 GTO 39 
‚3 367 CLST 
sTo p6 368 STOP 
GTO 36 369 LBL 41 
LEL 39 378 1 
"TERMI" 371 ST+ 92 
ELST 372 RCL 22 
SEEKPTA 373 SEEFKPT 
sTo 92 374 GTo 49 
LBL 49 375 LBL 48 
GETREC 376 "T00 LATE" 
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Prog. Prog. 

Zeile Befehl Zeile Befehl 
377 AVIEW 386 GTO 33 
378 PSE 387 LBL 59 
379 CLD 388 RCL 92 
389 GTO 47 389 STOFLAG 
381 LBL 49 399 CLST 
382 "TEXTEND" 391 CLA 
383 AVIEW 392 STOP 
384 PSE 393 END 
385 CLD 
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7 Kuckucksuhr elektronisch 


Der Vorteil des Rechners gegenüber der Kuckucksuhr liegt 
darin, daß man den "Kuckucksruf" bei Bedarf abstellen kann. 
Außerdem besteht die Möglichkeit, bei jeder vollen, jeder 
halben oder bei jeder viertel Stunde eine Tonkombination 


ertönen zu lassen, 


7.1 Programmbedienung 


Start mit XEQ "ZEITSIG". 
Folgende Fragen müssen Sie dem Computer beantworten: 
"ERSTES SIG" Eingabe der Uhrzeit,wann der Rechner 
das erste Signal abgeben soll. (R/S) 
"LETZTES SIG" Eingabe jener lIhrzeit,bei der das letzte 
Signal abgegeben werden soll. 
"1/4H? I/N" Alle viertel Stunden ein Signal? 


"J" für ja und "N" für nein betätigen! 


oder 
"1/2H? J/N" Alle halben Stunden ein Signal? 

"9" für ja bzw. "N" für nein drücken. 
"RTN/OFF?" Nach dem Zeitsignal: soll der Rechner 


den Befehl "RTN" oder "OFF" ausführen? 
Jeweils den Anfangsbuchstaben für die 


gewünscht Anweisung betätigen. 


39 


Kuckucksuhr 


Verwendete Flags: P = Zeitintervall 1/4h 


] = Zeitintervall 1/2h 


2 = Ton für die 1/2h 


Verwendete Flags: 3 = Ton für die 1/4h 


4 = RTN / OFF 


Verwendete Register: 99 


erstes Zeitsignal 

dl = letztes Zeitsignal 

ß2 = Zeitintervall 

83 = Uhrzeit für Ton 

24 = Flags vom Zeitsignalprogramm 
25 = Flags vom Anwender 

ß6 = ersten 6 Alphazeichen 

27 = zweiten 6 Alphazeichen 

28 = dritten 6 Alphazeichen 

09 = vierten 6 Alphazeichen 

12 = Inhalt vom T-Stack 

11 = Inhalt vom Z-Stack 

12 = Inhalt vom Y-Stack 

13 = Inhalt vom X-Stack 

14 = Inhalt vom Last X Register 


15 = Zwischenspeicher (Arbeitsreg.) 


LBL "ZEl" = für Stunden 


LBL "ZE2" für halbe Stunden 


LBL "ZE3" = für viertel Stunden 
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7.2 Anweisungsliste 


Prog. 


Zeile Befehl] 


1 LBL "ZEITSIG" 
2 CF 27 

3 SF 25 

4 "zer" 

5 CLALMA 

6 SF 25 

7 "MW ZE2" 

8 CLALMA 

9 SF 25 

18 "I ze" 

11 CLALMA 

12 CF 25 

13 CLST 

14 x<>F 

15 ‚Bla 

16 CLRGX 

17 "ERSTES SIG" 
18 PROMPT 

19 INT 

29 STo 29 

21 sTo 93 

22 "LETZTES SIG" 
23 PROMPT 

24 INT 

25 sto pl 


Befehl 


LBL 99 
"1/4H? J/N" 
AYTEW 
GETKEY 

45 

x=y? 

GTO 16 

RDN 

41 

xty? 

GTO PB 

LBL Bl 
"1/2H? J/N” 
AVIENW 
GETKEY 

25 

x=y? 

GTO 17 

RDN 

al 

x#y? 

GTo 21 

LBL 18 
"RTN/OFF?" 


AVTEW 


Kuckucksuhr 
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ISUEREIERSIHE: 


Prog. Prog. 

Zeile Befehl Zeile Befehl 
51 GETKEY 78 x7y? 
52 42 79 GTo 22 
53 x=y? 89 RCL 93 
54 GTO 36 8l XEQ 25 
55 RDN 82 XEQ 26 
56 52 83 LBL 39 
57 xfy? 84 CLST 
58 GTO 18 85 x<? F 
59 LBL 37 86 sto 94 
69 CLD 87 CLST 
61 FS? BP 88 CLA 
62 GTO 22 89 STOP 
63 FS? 91 q LBL 36 
64 GTO 21 91 sF 4 
65 1 92 GTO 37 
66 LBL 22 93 LBL 43 
67 sTo 22 94 XEQ 32 
68 TIME 95 OFF 
69 RCL P1 9 LBL 16 
79 x&y? 97 SF BB 
71 GTO 19 98 6T0 18 
72 LBL 92 99 LBL 17 
73 RCL 93 129 sFr ol 
»4 RCL 92 191 GTO 18 
75 HMS+ 122 LBL 29 
76 STo B3 193 ‚15 
71 TIME 194 GTO 22 


Prog. 


Zeile 


195 
1p6 
197 
198 
199 
119 
ı1l 


___Kuckucksuhr 


Befehl 


LBL 21 


DATE+ 
RCL PB 
sto 93 
"IEzEL" 
XYZALM 
GTO IND 15 
LBL, ZEN 
TONE 5 
TONE 6 
TONE 7 
TONE 8 
TONE 3 
LBL 49 
xEQ 31 


Prog. 

Zeile Befeh] 
132 RCL 93 
133 RCL 22 
134 HMS+ 
135 STO 93 
136 RCL 21 
137 x&y? 
138 GTo al 
139 RCL 93 
149 XEQ 25 
141 XEQ 26 
142 LBL 42 
143 FS? 94 
144 GTO 43 
145 XEQ 32 
146 RTN 

147 LBL "ZE2" 
148 TONE 8 
149 TONE 4 
159 TONE 8 
151 GTO aD 
152 LBL "ZE3" 
153 TONE 7 
154 TONE 3 
155 GTO 49 
156 LBL 32 
157 CLA 

158 ARCL 96 
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Kuckucksuhr 


Prog. 


Zeile 


Befehl] 


RCL 95 


STor 
RCL 
STo 
RCL 


RDN 
sTo 
RDN 
sTo 


LAG 
14 
L 
12 
1l 
12 
13 


31 


14 


12 


19 


ASTO 96 


ASHF 


Prog. 

Zeile Befehl 
186 ASTO 97 
187 ASHF 
188 ASTO 98 
189 ASHF 
192 ASTO 99 
191 CLA 

192 RCLFLAG 
193 STO 85 
194 RCL Ba 
195 x<>F 
196 CLST 
197 RTN 

198 LBL 25 
199 FRE 

229 „3 

221 x=y? 
222 GTO 23 
203 RDN 

2n4 ‚15 

285 x=y? 
226 GTO 24 
297 RDN 

298 ‚45 

299 x=y? 
21 GTO 24 
ell CF 92 
212 CF 93 


__ Kuckucksuhr 


Prog. 

Zeile Befehl Zeile Befehl 
213 CLST 227 6TO 28 
214 RTN 228 "IhzeEı" 
215 LBL 23 229 LBL 29 
216 SF 2 23 CLST 
217 CF 93 231 RCL 93 
218 RTN 232 XYZALM 
219 LBL 24 233 RTN 
229 SF 93 234 ERLr.27 
221 CF 92 235 "Ih ze2" 
222 RTN 236 GTo 29 
223 LBL 26 237 LSL 28 
224 FS? 92 238 "I ZE3" 
225 GTO 27 239 6TO 29 
226 FS? 93 249 END 
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8 Wecken durch den HP-41CX 


Eine der vielen Möglichkeiten, sich aus dem Schlummer reißen 
zu lassen, ist jene, den Wiederholungsintervall des Alarms 
immer kürzer zu setzen. Genau das wird von diesem Programm 


gemacht. und zwar im Abstand von 4, 3, 2 und 1 Minute. 


8.1 Programmbedienung 


Start mit XEQ "WECKER". Die Eingabe vom "DATUM" und "ZEIT" 
mit R/S abschließen. 

Um den Wecker abzustellen, betätigen Sie beim "Läuten" 

die R/S- oder die ON/OFF-Taste, und Sie werden keinen Ton 
von Ihrem Rechner mehr hören. Sollten Sie hingegen sich 
nicht um die Piepserei kümmern und keine Taste drücken, 


so meldet sich der Computer bis zu viermal wieder. 


Verwendete Register: A bis 2 
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._Wecken 


8.2 Anweisungsliste 


Prog. Prog. 

Zeile Befehl Zeile Befehl 
1 LBL "WECKER" 31 x 
2 CF 27 32 INT 
3 "DATUM" 33 122 
4 PROMPT 34 / 
5 STO 22 35 RCL P2 
6 "ZEIT" 36 HMS+ 
7 PROMPT 37 sTo pl 
8 sto pl 38 CLST 
9 CLST 39 xXEQ 16 
1P "IEWEL" 49 OFF 
11 LBL 16 41 LBL "WE2" 
12 RCL PP 42 23 
13 RCL 91 43 "WEI" 
14 XYZALM 44 GTO 99 
15 CLST 45 LEL "WEI" 
16 CLA 46 ‚22 
17 RTN 47 "IIUEA" 
18 LBL "WEL" 48 G6TO 99 
19 ‚24 49 LBL "WE4" 
28 "PENE2" 5 ‚Bl 
21 LBL 99 51 "IRWES" 
22 sTo p2 52 GTO 99 
23 15 53 LBL "WES” 
24 LBL 99 54 15 
25 TONE 8 55 LBL 21 
26 TONE 1 56 BEEP 
27 DSE X 57 DSE X 
28 GTO 29 58 GTo pl 
29 TIME 59 OFF 
39 1998 6P END 
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9 Löschen des erweiterten Speichers 


Um einen File aus dem erweiterten Speicher zu entfernen, 
mußte man ihn bisher im ALPHA-Register definieren und mit 
dem Befehl] "PURFL" löschen. Dies kann, wenn man sehr viele 
Files hat, zu einer zeitraubenden Tätigkeit werden. 

Die beiden Programme "CLEMX" (clear extended memory by X) 
und "CLEM" (clear extended memory) heifen Ihnen,diesen 
Aufwand zu minimieren. 

"CLEM" löscht den gesamten erweiterten Speicher, und bei 
"CLEMX" geben Sie mit einer Zahl im X-Stack bekannt, 


wie groß der Speicherplatz ist, den Sie benötigen. 


9.1 Programmbeschreibung 


Die beiden Programme sind als Subroutinen ausgelegt, d.h. 
sollten Sie "CLEM" oder "CLEMX" mit einer XEQ-Anweisung 
anspringen, so wird das Programm ausgeführt, bei Ende 
desselben zum nächstenfolgenden Befehl nach XEQ "?" 
zurückgesprungen und das Hauptprogramm weiterbearbeitet. 
Sollten Sie hingegen im Rechenmodus die Anweisung XEQ "CLEM" 
bzw. XEQ "CLEMX" geben, so wird der RTN-Befehl zum 

Schluß als "STOP" interpretiert. 

Bei "CLEMX" steht nach der Beendigung des Programms im 
X-Stack, wieviele Register Sie nun wirklich zur Verfügung 


haben, da das Progranm von vorne nach hinten, somit in der 
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Reihenfolge wie bei 


dem Befehl 


Löschen 


"CAT 4" ausgegeben, die 


Files aus dem erweiterten Speicher löscht und vergleicht 


ob der erforderliche Platz schon frei ist. 


9.2 Anweisungsliste 


Prog. 
Zeile Befehl] Kurzbeschreibung 

1 LBL "CLEM" Programmname 

2 CLST Stack löschen. 

3 1 Erstes File vom externen Speicher in 

4 EMDIRX das X- und ALPHA-Register übertragen. 

5 x=y? Wenn kein File mehr vorhanden ist, 

6 RTN zurückspringen zu vorher benützter 
Unterprogramm- oder Programmebene 
bzw. Programmstop 

7 CLX File aus dem erweiterten Speicher 

8 PURFL löschen. Rücksprung zu Programm- 

9 GTO "CLEM" anfang. 

1P END Programmende 
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Löschen. 


Prog. 


Zeile 


l 


17 
18 


19 
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Befehl 


LBL "CLEMX" 
EMROOM 

x» y? 

RTN 

x=y? 


RTN 


RDN 
1 
EMDIRX 


cLx 

SF 25 
PURFL 
RDN 
EMROOM 
FC?C 25 
RTN 


RDN 


GTO "CLEMX" 


END 


Kurzbeschreibung 


Programmname 


Ist der Paum im erweiterten Speicher 
größer oder gleich der Eingabe? Wenn 
ja, Rücksprung zu vorheriger 
Unterprogamm- oder Programmebene 
bzw. Programmstop. 

Erstes File vom erweiterten Speicher 


in das X- und ALPHA-Register über- 


tragen. 


File aus dem erweiterten Speicher 
löschen. Sollte kein File mehr im 
erweiterten Speicher sein, Rücksprung 
zu vorheriger Unterprogramm- oder 


Programmebene bzw. Programmstop. 


Rücksprung zu Programmanfang. 


Programmende 


10 Primfaktorzerlegung 


Dieses Programm zerlegt jede Zahl in ihre Primzahlen. 


10.1 Programmbedienung 


Die zu zerlegende Zahl in das X-Register eingeben und 
das Programm mit XEQ "PRIM" starten. 
Jeder Primfaktor außer dem letzten wird 1 Sekunde lang 


angezeigt. 


Verwendete Register: 16 bis 19 


Beispiel: 392248 XEQ "PRIM" 


AUSGABE 


129 


51 


Primfaktorzerlegung 


10.2 Anweisungsliste 


par 


14 
1:5 
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Prog. 


Zeile 


Befeh] 


LBL PRIM" 


CF 27 
STo 16 


FS? 99 
GTO p2 


STO 18 


sTo 17 


LBL 2P 
RCL 16 
RCL 17 
RCL 19 


Kurzbeschreibung 


Programmname 


USERS-F}ag löschen und Eingabe in 


Register 16 speichern. 


Von der Zahl im X-Stack die Quadrat- 
wurzel ziehen, die Kommastellen 
löschen und das Ergebnis im 


Register 19 speichern. 


Wurde gerade ein Primfaktor ausgegeben? 
Wenn ja, Sprung zu Label 92, bei nein 
l in Register und 2 in Register 17 


speichern. (Reg. 17 = Divisionsfaktor) 


Flag ® löschen. 


Ist der Divisionsfaktor größer als 
die Wurzel aus der Eingabe? Wenn ja, 
Sprung zu Label 15, ansonst Division 


von Eingabe mit Divisionsfaktor. 
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GTo pl 
RCL 18 
ST+ 17 
GTO pp 


LBL 91 
RCL 17 


END 


____Primfaktorzerlegung 


Ganzzahligen Teil, des Ergebnisses 
löschen. Sind Kommastellen vorhanden? 
Wenn ja, Sprung zu Label Bl, sonst 
Divisionsfaktor um 1 erhöhen und zu 


Label ßß zurückspringen. 


Primfaktor 1 sec. lang anzeigen, 
Eingabe mit Primfaktor dividieren, 
Ergebnis in den X-Stack bringen 

und im Register 16 speichern. Flag 8 


setzen und Rücksprung zu Label 923. 


Flag f@ löschen, letzten Primfaktor 
ins X-Register übertragen und 


Programmstop. 


Programmende 
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11 Quersummenberechnung 


11.1 Grundsätzliches 


Für ein paar mathematische Tests habe ich dieses Programm 

zu Papier gebracht. 

Wenn Sie eine beliebige Zahl, z.B. 179, notieren, so haben 
Sie die Zahlen 1, 7 und 9 zu Papier gebracht. Diese Zahlen 
addiert der Rechner. Bei unserem Beispiel hätten wir als 
Ergebnis 17 erhalten. Die Maximallänge ist die Stellen- 
zahl der Mantisse. Sollte eine Zahl Kommastellen aufweisen, 
so wird das Komma so lange nach rechts verschoben, bis 


kein Dezimalbruch mehr vorhanden ist. 


Dateneingabe 


Diejenige Zahl, von der Sie die Quersumme errechnet haben 
wollen, geben Sie in den X-Stack und starten das Programm mit 
XEQ "QSUM". Sobald der Computer das Ergebnis gefunden hat, 
bleibt er mit dem Ergebnis in der Anzeige stehen. Das 
Erwähnenswerte bei dieser Software ist wohl, daß keine 
Datenspeicher zur Datenzwischenspeicherung verwendet werden, 


sondern nur mit den Stack-Registern gearbeitet wird. 
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Quersummen 


11.2 Anweisungsliste 


oo so a 2 0 


De} 


19 


11 
12 
13 
14 


15 
16 
17 
18 
19 
29 
el 
22 


Befehl] 


Kurzbeschreibung 


LBL "QSUM" 
LBL ®1 
ENTER 

FRC 


x=9? 


GTO PP 


GTo pl 


LBL 2 


LBL 93 


ST+r y 


Programmname 


Sollte eine Zahl Kommastellen auf- 
weisen, so wird diese so lange mit 
12 multipliziert, bis kein Dezimal- 


bruch mehr vorhanden ist. 


Löschen des X- und Z-Stacks und ein 
Verschieben der Stack-inhalte nach 


unten, 


Eingabe mit 19 dividieren und im 


Z-Stack speichern. 


Den ganzzahligen Anteil der im X->tack 
enthaltenen Zahl löschen, den Dezimal- 
bruch mit 1 multiplizieren und den 


Y-Stack mit der Zahl addieren. 
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Quersummen 


23 


24 
25 
26 
27 
28 
29 


3P 


56 


RCL 2 
INT 
Y#9? 
GTO 93 
RCL y 
RTN 


END 


-Stack löschen. (Mit diesem Befehl 


wird auch der Stack-Lift gesperrt.) 


Den Z-Stackinhalt in den X-Stack über- 
tragen, die Kommastellen löschen und 
vergleichen, ob die im X-Stack 
enthaltene Zah] ungleich ® ist. Bei 
positiver Beantwortung der Abfrage, 
Rücksprung zu Label 93, sonst Ausgabe 


der Quersumme. 


Programmende 


12 Fakultäten, Variationen und Kombinationen 
auch für Mengen größer 69 


12.1 Grundsätzliches, Beispiele 


Berechnung der Anzahl der möglichen Kombinationen und 
Variationen von n Objekten, wenn r Objekte gleichzeitig 
entnommen werden. Dazu Berechnung der Fakultät von 


positiven ganzen Zahlen. 


Dieses Programm führt drei Funktionen aus. 


Fakultät: Berechnung der Fakultät (n!) einer positiven 


ganzen Zahl. 


n!=(n) (n- 1) (n - 2) (n = (n-1)) 


Yariationen: Berechnung der Anzahl der möglichen 
Variationen von n Objekten. wenn r Objekte gleichzeitig 


entnommen werden. 


P=n!/(n- r)! 


Kombinationen: Berechnung der Anzahl der möglichen 
Kombinationen von n Objekten, wenn r Objekte gleich- 
zeitig entnommen werden. 

C=n!/ r!(n- r)! 
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Fakultäten, Variationen 


Die einzelnen Bücher eines zwanzigbändigen Lexikons 
werden in zufälliger Reihenfolge im Regal aneinander- 


gesteilt. Wieviele mögliche Anordnungen gibt es? 


EINGABE ANZEIGE 

Start mit 

XEQ "FAK" N? 

28 R/S Anzeige der Uhrzeit und nach einem 


Piepston das Ergebnis, in unserem Fall 
2,432992 18 


18 


Es gibt 2,432982 . 19 mögliche Anordnungen. 


N N Lee 

37 Studenten legen eine Prüfung für die Bewilligung eines 
Stipendiums ab, Die Studenten mit den 4 besten Prüfungs- 
ergebnissen erhalten Stipendien von S 48P2P, S 3PB99, 

S 2B0pß bzw. S 12809. Wieviele unterschiedliche 


Resultate sind möglich? (S = Schilling) 


EINGABE ANZEIGE 

Start mit 

XEQ "VAR" N? 

37 R/S R? 

4 R/S Anzeige der Uhrzeit und nach einem 


Piepston das Ergebnis, in unserem Fall 


1585989 
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Fakultäten, Variationen 


Beispiel für Kombinationen: 


Beim Kartengeben erhält ein Spieler 4 Karten aus einem 


118-iger Blatt. Wieviele mögliche Hände kann er bekommen? 


EINGABE ANZEIGE 

Start mit 

XEQ "KOM" N? 

11P R/S R? 

4 R/S Anzeige der Uhrzeit und nach einem 


Piepston das Ergebnis, in unserem Fall 


5773187 


Sollte zum Beispiel die Fakultät von n=7@ errechnet werden, 


so wird das Ergebnis wie folgend ausgegeben: 


MAN= 1,197857 R/S drücken 
EXP= 12p 


n! = 1,197857 . 1919 


12.2 Anweisungsliste 


Prog. Prog. 


Zeile Befehl Zeile Befehl 
1 LBL "FAK" 7 GTO 18 
2 CF 25 8 LBL "VAR" 
3 XEQ 16 9 CF 27 
4 XEQ 21 1p XEQ 16 
5 RCL 29 11 xEQ 17 
6 XEQ 15 12 XEQ 21 
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Fakultäten, Variationen... 


Prog. 


Zeile Befehl 


GTO 
LBL 


18 


"KOM" 


CF 27 


XEQ 
XEQ 
XEQ 
xEQ 
REL 
XEQ 


ST+ 


GTO 
LBL 


ung" 


16 
17 
21 
19 
21 
15 
24 
22 
15 
24 


18 
16 


PROMPT 


ABS 
INT 
STo 


RTN 


22 


Prog. 

Zeile Befehl 
49 LBL 17 
al "RP" 
42 PROMPT 
43 ABS 

44 INT 

45 sTo pl 
46 RCL 99 
47 x>y? 
48 RTN 

49 "NYR???" 
5A PROMPT 
51 LBL 15 
52 sTo 22 
53 CLX 

54 STO 3 
55 LBL 9B 
56 RCL 22 
57 LOG 

58 ST+ P3 
59 DSE P2 
69 GTO 22 
61 RCL 93 
62 RTN 

€ 3 LBL 18 
64 TONE 5 
65 STo p2 
66 INT 


67 
68 
69 
79 
71 
72 
73 
74 
75 
76 
77 
78 
79 
89 
81 
82 
83 
84 
85 
86 


Prog. Prog. 

Zeile Befehl Zeile Befehl 
SF 25 87 RCL 22 
1p" x 88 INT 
FC?C 25 89 "EXP= " 
sTo 91 9p ARCL X 
RCL 22 91 AVIEM 
FRC 92 RTN 
ıpt x 93 LBL 19 
x 94 RCL 929 
5 95 RCL Pl 
+ 96 - 

INT 97 xEQ 15 
CLD 98 sTo pa 
STOP 99 RTN 
LBL Pl 129 LBL 21 
RCL 92 1p1 CLA 
FRC 1B2 TIME 
12h x 103 ATIME 
"MAN= " 194 AVIEN 
ARCL X 185 RTN 
PROMPT 1B6 END 
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13 Bruchrechnen 


13.1 Vorbemerkungen, Beispiele 


Es wird wohl ein jeder mit der Achsel zucken, wenn Sie ihn 
si 

fragen,wie das Ergebnis von 7 ' TB lautet. 

Sie wissen natürlich in Kürze, sofern Sie richtig getippt 


haben, daß das Resultat nur Eu bzw. 7 3 sein kann. 
Eine jede Dezimalzahl läßt sich als Bruch darstellen, 


man muß nur wissen wie. 


2.B.: 59,14 = 59 m oder 
Sm oder 
2597 
SB 
017 
ja w 
22393 
3,333 = 3 1999 


Wie heißen die Zahlen bei einem Bruch? 
Zähler 


SI 
:% 


Ganze Zahl —ı 
Nenner 


Wie können Sie nun mit diesem Programm Bruchrechnen? 
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Bruchrechnen 


Anhand von Beispielen sei dies erklärt ! 


isch 
EINGABE ANZEIGE 
Start mit 
XEQ "BREI" 
(BRE ist die 
Abkürzung für 
Bruchrechnen) GANZE ZAHL= 
14 R/S ZAEHLER= 
3 R/S NENNER= 
7 R/S GANZE ZAHL= 
R/S ZAEHLER= 
1 R/S NENNER= 
6 R/S BEFEHL? 
XEQ "B/" ZAEHLER= 696 
R/S NENNER= 7 
R/S GANZE ZAHL= 86 
R/S ZAEHLER= 4 
R/S NENNER= 7 
Ergebnis = 8g8 = 86 a 


Neues Beispiel: 


7 


7 
Ira eg Tr 


(Achtung: Punkt- vor Strichrechnung) 
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EINGABE ANZEIGE 

XEQ "BREL" GANZE ZAHL= 

1 R/S ZAEHLER= 

7 R/S NENNER= 

69 R/S GANZE ZAHL= 

13 R/S ZAEHLER= 

TR/S NENNER= 

9 R/S BEFEHL? 

XEQ "Bx" ZAEHLER= 9424 

XEQ "BRE2" GANZE ZAHI.= 

R/S ZAEHLER= 

18 R/S NENNER= 

111 R/S BEFEHL? 

XEQ "B-" ZAEHLER= 344962 

R/S NENNER= 22977 

R/S GANZE ZAHL= 15 

R/S ZAEHLER= 397 

R/S NENNER= 22977 
344962 397 


Ergebnis = 99977 * 15 77977 


ALPHA-Labels und ihre Bedeutung 


LBL "BREI" = Programmstart 

LBL "BRE2" = dient zur Eingabe, wenn mehrere Rechenvorgänge 
bei einer Rechnung erforderlich sind. 

LBL "B+" = addieren 

LBL "B-" = subtrahieren der jeweiligen 

LBl. "Bx" = multiplizieren Brüche 

LBL "B/" = dividieren 
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Bruchrechnen 


13.2 Anweisungsliste 


Prog. Prog. 


Zeile Befehl Zeile Befehl 
1 LBL "BREI" 26 ABS 
2 CLST 27 RCL 92 
3 XEQ 15 28 x 

PROMPT 29 ST+ 91 

5 STo 29 39 FS?C 99 
6 XEQ 16 31 XEQ 95 
7 PROMPT 32 RCL 893 
8 STo pl 33 x<Pp? 
9 XEQ 17 34 SF 92 
19 PROMPT 35 ABS 
11 STo 22 36 RCL 95 
12 LBL "BRE2" 37 x 
13 ELST 38 ST+ B4 
14 XEQ 15 39 FS?C 29 
15 PROMPT 49 XEQ 96 
16 SsTO 3 4] CLST 
17 XEQ 16 42 sTo 282 
18 PROMPT 43 STo 93 
19 ste 94 44 "BEFEHL?" 
2p XEQ 17 45 PROMPT 
21 PROMPT 46 LBL 95 
22 STO 85 47 -1 
23 RCL 99 48 STx pl 
24 x<P? 49 RTN 
25 SF 92 59 LBL 96 
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Bruchrechnen 


Prog. Prog. 

Zeile Befehl Zeile Befehl 
51 -1 78 STx 22 
52 STx p4 79 LBL 19 
53 RTN 89 CF 2p 
54 LBL "B+" 8l RCL 21 
55 XEQ 18 82 x<P? 
56 RCL Pl 83 XEQ 29 
57 RCL 24 84 STo 93 
58 + 85 RCL 22 
59 sTo 21 86 sTo 94 
69 GTO 19 87 LBL 29 
61 LBL "B-" 88 CLST 
62 XEQ 18 89 RC. 92 
63 REL 91 09 x=y? 
64 RCL 94 91 GTo 21 
65 = 92 RCL Pl 
66 sto 91 93 RCL B2 
67 GTO 19 94 / 

68 LBL "Bx" 95 FRC 
69 RCL 94 96 RCL B2 
72 STx Pl 97 x 

71 RCL 95 98 ‚1 

72 STx 92 99 + 

73 GTO 19 12Pp INT 
74 LBL "B/" 1p1 x<>92 
75 RCL 95 122 STo 91 
76 STx 21 193 6TO 99 
77 RCL 94 194 LBL Al 
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 Bruchrechnen 


Prog. Prog. 

Zeile Befehl Zeile Befehl 
195 RCL 91 132 sTOo 29 
126 STO 922 133 FRE 
197 RCL 93 134 RCL 22 
198 x&yy 135 x 
189 / 136 RCLFLAG 
119 STo 21 137 x&ry 
111 RCL 94 138 FIX 2 
112 RCL B2 139 RND 
113 / 149 x<ry 
114 STOo 92 141 STOFLAG 
115 LBL 22 142 x<Dy 
116 RcL 91 143 STo pl 
117 LBL 93 144 RCL PP 
118 FS?C 99 145 INT 
119 CHS 146 sTO 22 
129 STo 91 147 LBL 9a 
121 XEQ 16 148 RCL 29 
122 XEQ 25 149 XEQ 15 
123 PROMPT 159 XEQ 25 
124 RCL 22 151 PROMPT 
125 XEQ 17 152 RCL pl 
126 XEQ 25 153 ABS 
127 AVIEW 154 XEN 93 
128 RTN 155 STop 
129 RCL P1 156 GTo pa 
139 RCL B2 157 LBL 18 
131 / 158 RcL B5 
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Bruchrechnen 
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Prog. 

Befehl Zeile Befehl] 
RCL P2 176 ABS 
STx 24 177 SsTo pl 
STx 85 178 SF 2p 
RDN 179 RTN 
STx pl 1892 LBL 25 
STx 2 181 RCLFLAG 
RTN 182 x<?y 
LBL 15 183 FIX PB 
"GANZE ZAHL= " 184 CF 29 
RTN 185 ARCL X 
LBL 16 186 xd>y 
"ZAEHLER= " 187 STOFLAG 
RTN 188 x<>y 
LBL 17 189 RTN 
"NENNER= " 199 END 
RTN 
LBL 22 


14 Brüche, schnell gekürzt 


Brüche kürzen ist nicht jedermanns Sache. Um diese lästige 
Tätigkeit so angenehm wie möglich zu machen, sollten Sie 


dieses Programm benützen. 


14.1 Programmbedienung 


Erklärung an Hand eines Beispieles: 


Der Bruch an ist zu kürzen. 

EINGABE ANZEIGE 

Start mit 

XEQ "BRUCH" ZAEHLER= 

49318 R/S NENNER= 

714 R/S GGT= 2,2pnp 

R/S ZAEHLER= 29159,2PP2 
R/S NENNER= 357,229 


Der größte gemeinsame Teiler von 4P318 und 714 ist 2, somit 


29159 


ist das Ergebnis 357° 


verwendete Register : 1 bis 4 
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Brüche kürzen 


14.2 Anweisungsliste 


Brblar 

Zeile Befehl Zeile Befeh] 
1 LBL "BRUCH" 26 GTO 22 
2 XEQ P2 27 LBL 91 
3 PROMPT 28 RCL 93 
4 sTto 91 29 RCL P1 
5 STo 93 3P / 
6 XEQ 93 31 STO 93 
7 PROMPT 32 RCI. 94 
8 sTo p2 33 RcL 21 
9 sTo p4 34 / 
12 LBL 29 35 sTo 94 
11 EEST 36 RCL Bl 
12 RCL P2 37 "G6T= " 
13 x=y? 38 ARCL X 
14 GTo pl 39 PROMPT 
15 RcL 91 48 LBL 94 
16 RCL B2 4l RCL 93 
17 / 42 XEQ 92 
18 FRC 43 ARCL X 
19 RtL 22 44 PROMPT 
29 x 45 RCL 94 
21 ‚1 46 XEQ 93 
22 + 47 ARCL X 
23 INT 48 PROMPT 
24 x<722 49 GTO 94 
25 STo 21 59 LBL p2 


Prog. 

Zeile Befehl 
51 "ZAEHLER= " 
52 RTN 
53 LBL 93 
54 "NENNER= " 
55 RTN 
56 END 


Brüche kürzen 
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Anhang 


1 Datenspeicherung in einem File FLPEC 
313 BYTES 

= 63 ROW 
IL LLEITLBTTHTITE TEE TUE TTSEITUETLIETTTTTTTEEITE I [ET 
ITELEUTE TEIL DU TEE U TE ESTTE IE DIE TEEN EI STEILE ETTE TEEN 
IL TFT TE THITETTTSTEITSEITEIT ET IT EITTTRTIT ET IE LET EU EITT TEEN TI 
N IT I TAITE NIS LITNITEIT TE TAT TEUER UI UT ISITETTEI UT UI LT 

UFER 3 IUIT PD TETTTEITIE LEUTE IT LET EIT TITEL TITLE TEIL TIL TITLE] 
BL IHHITEHTET IT TU FTIE TEN FT TUE FTTITEIT TTS TITDITTTE ET TETETTE IT 
TI EU III FI FIFE DE TEITEIFETTTTIT IT TEILTE TETUITIT ELITE ITT) 

I TU UNITS SEITTEEIT TE TFT ELISE IT TIT TITLE ITTTIT 
HU FETT TITTEN T TITEL IT TT TEIL INTITLE IT IT IT) 
LEI EL EFT PUT TET IT TTEISTETTETTIL FIT EIT LITT EU IE IT IL IT TTTT 
a II 15 JUETT THAT FIT FETTE TTTETT FIT TUT ET TEITETTTEETTSOTTIU TI TILL EITTETT 
a1 HI ETF TUT TTTTEIU TFT EITTITST TITLE TIT LIT DIT ET TE TTT IT 
I TUT TTEE EI TTETTTITTTTTTETT ET TIL ITEITTITE ALLE TTS TTTITEITT 


I ULF HTL PU TEIE ETUI TTTT IT TT FTSE TITEL TTETTTTEITT 
£ 


i 


2 


[4 


a 


2 


32 31 38 29 28 27 26 25 24 23 22 2ı 20 19 18 17 16 15 


33 


1 .Datenspeicherung 
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1 Datenspeicherung 


41 


45 44 


46 


si sa 40 48 


52 


74 


52 61 [-I=| 59 se 57 56 55 54 53 


63 


„1 Datenspeicherung 


75 


1 


12 15 14 13 12 11 19 3 8 ? 5 SO 4 3 


17 
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Sortieren von Zahlen INPUT 
171 BYTES 


= 215 ROKS 


34 33 32 31 39 29 28 27 26 25 24 23 22 21 28 19 18 


35 


2 Sortieren 


77 


3 


12 11 123 3 3 24 & 5 4 3 2 1 


ig) 


14 


15 


16 


17 


12 


78 


Fakultät bis 571 auf eine Stelle genau hi 
186 BYTES 


= 38 RONS 


37 36 35 34 33 32 31 38 29 28 27 26 25 24 23 22 21 28 19 


38 


3 Fakultät bis 571 


79 


1 


4 


5 


15 15 14 13 12 11 18 9 


17 
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Mischen von Ziffern, Zahlen oder Zeichen nis 
159 BYTes 
= 32 ROWS 


31 38 29 >28 27 26 25 24 23 22 21 28 19 18 


32 


4 Mischen 


81 


5 Division auf unendlich div 


2 


I] 


6 


n 


o 


1 


1i 


o 


N 


1 


N 


Y 


16 15 1 


17 


82 


85 BYTES 
= 17 ROWS 


6 Terminverwaltung PAD. 


= 1A@ ROWS 


"Die Programme TERMIN’ und "TERMIN?" getrennt hintereinander einlesen und das eventu- 
ell in der Mitte stehende "END löschen.” 


HIT TTNITTETTE IT ITTETTNETETTI IT EIT EP TEE TU IITT 
TUT FIT FIT TIT TI TIETTTTIE TITEL OT TEE TI 
"NENNEN DENK ERITITRRITRIRIDN 
" ERRIEIIRRIDENIL EEE DEREK III 
U DI 7 WII FI TEILTE IE IIE LI STETTETTTETTTE LEI LEITET 
°URRBRNDBENITRNIDNTDETRU DUDEN ERDE ER REIN 


k=} 


7 


15 14 13 12 11 18 


16 
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6 Terminverwaltung 


N 
- 


208 19 13 


21 


28 27? 26 25 24 23 


29 


34 


35 


84 


53 s2 51 58 49 48 47 46 45 44 43 42 41 48 39 38 37 36 


54 


6 Terminverwaltung 


85 


pe} 

['p} 

5 DUIITBRIERBBIUDDDEIDEONODEUL RL EERR TER RENNEN 
& UNI ERRBENIKIDRRIDHRUNNIIERDTHRIDTERDENERUHRRNNIKIINN 
© DINBERINDRNIIDIIEIDRRILENDIEIDIDILT EDER REED 

5 JINERRRIINRIIIDDERERRRTRTRNL ERLERNT IR EEE IDEEN 
&JNDRIIRNIIENDENLDER IDEALE ER AINIENIN 

© JINTRITEBENNIDIEDEDDREENERDRI LEHRER DER NERTEIIEN 
TIEF TUT THEIR UT I TE STIETIT FETT EETT TTIEUT ET TEIN TI 


86 


7 ?ı 7e 69 & 6 66 & [22 63 82 61 68 59 58 S 56 


7 


9 98 89 88 87 86 85 34 83 s2 sı 88 79 78 77, 76 75 r4 
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6 Terminverwaltung 


87 


99 938 97 96 95 94 93 


88 


- 


88 


16 15 14 13 12 11 18 9 [: ? 6 5 4 3 124 1 


17 


6 Terminverwaltung 


TERNIH? 
394 BYTES 
= 79 ROWS 


89 


6 Terminverwaltung 


a UI U DI PUIT ERID TEED III IUTHITIE UT UK DIT PUT EUIEIUEET 
= RRNIIDINILDDIDE RER OENTER DENE RUNDER 
4 

u 

S DNInHRID ERBE RRRN ERLEIDEN III 
a 

ou 

© 

m 

- 

5 

u 

Mm 

m 

m 

+ 

m 

n 

m 

N 

! 


90 


1 


28 


2 26 25 24 23 22 


28 


3 


3 


6 Terminverwaltung 


 DNRRERNERNIDRNIBDIRIDETRRRRRDDDRRTTBRRDENIIIDIDIUIERIAN 


s4 53 s2 51 58 49 48 47 46 45 44 43 a2 41 40 39 38 37 


55 
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6 Terminverwaltung 


V 
n 


N 


64 63 62 61 68 59 58 5 


65 


he] 


6 


N 


6 


[ee] 


& 


89 


?ı 


v2 


92 


8 ,?. rd 753 


79 


6 Terminverwaltung 
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7 Kuckucksuhr elektronisch ZEITSIG 


16 


17 


94 


522 BYTES 
= 185 ROWS 


Seh KUENUERSUNF 


35 34 33 32 31 38 29 28 27 26 25 24 23 22 21 26 19 18 


36 


95 


N 

Mm 

& 

m 

a 11 PIE EIETT IE U EITETEITE FETTE STE TETLTT TEL TEL EU FILE ESTETTEETE N 
a U IE TITEL TIL SIT TITEL IT ETE LTE E LITT EI IET 
1 FI LJTETEIT ET TEITETEE TE TEE DIT EI EI FIT PT PIE EIL ET 


= DURRRRENIRERBIIDBNI RIED ERNNTLITIDII TER RDNKDKINEN 
aa UI PTUIIT FEITTTETTUETT UT TTEEITITTUI ET EITLTLETETUTIET 
> DUNIENNNNNIINIKDHINRDIRLLDIRRNANTLLNIDDEDIITIRUERIHNN 
> DNBIBERENRRIDNDIDTEEERN ERDE ERDE 


96 


s4 5 52 51 58 4 48 4 46 45 44 4 4 41 4 39 


5 


73 v2 7ı ?o 69 68 er 66 65 64 63 62 61 [--] 59 58 57 56 


74 


. 7 Kuckucksuhr 


97 


7 Kuckucksuhr 


19) 

N 

N 

N 

n 

N 

= JINIENNEITAERIIDERRUIEKDD DEREN RR ER NINE 
® UNNIIDERRIDETITIEEDIDERDETEIDT REDEN RDDRORIENERN 
a HI FIT EU HILL ITETTTTEEIT EL EITE TE TEHTTETTEITEIT EFT LITT IT 


92 91 98 8 8 8 86 85 34 83 82 si 88 79 78 


933 


98 


_..__7 Kuckucksuhr 


104 1893 1e2 ei 08 99 98 97 96 95 94 


195 


99 


8 Wecken durch den HP-41CX HECKER 
168 BYTES 
= 34 RONS 


I} II TE TFT HIT FITTEI ET UL THE HIT FTET ET EIT TUT II ET] 
NINDININIDRREIIDEIRDEERDE TERROR 
III ERRRDNERDIEDIIDIDIIRIDIN 

“ IDIRDEIDBRRIERDIEE ELDER 
NUT EEETTNIT FU TEITEITTETE IT EI LTIT EU TU TETTEI TU TILL TITEL EITEI TUT) 
I IIU U FH TTFEITTTTNT FETTE TFETIT LTE TIL TEE 

11 11 FI LITEIS TEIL TITEITTEE TEUER TEITTEITEETE EU TE EI TUT ITE LEI UT 
= IRENINTNINRINDRIDIDEIEDDO LEEREN 
9] 

a1 FIT EI HIT FT THTTT TUHITE TUI TEITE TEE DIET TEIL EITE TI TTITETT I 

Tr 

= ERDEIEENTDIDIIIDIIDRRERRTIITEDDTRIT EHRE RDIUDLL EHI AANN 
= UNERERERERERDBDN BIT DER EIER DIITIEEIDER NIE 
® 

w 

ri 

a I KIEL TETNITTEITEITTTDTEATIE TIED FETT DUTEETTE TEE TUT IT UT TU 

2 


5 


100 


3 22 31 u 24 282 22 28 25 24 23 22 z2ı 29 19 ı8 


34 


8 Wecken 
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IS) 


= 


) 


4 
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Löschen des erweiterten Speichers CLEm 
26 BYTES 
= 6 RONS 


4 


2 


3 


4 


5 


6 


? 


E= 3 


9 


9 Löschen 


CLEMX 
41 BYTES 
= 9 BOWS 
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10 Primfaktorzerlegung N, 


= 16 ROWS 


“DENN BRD RIRE EEE 
a 1 J1HUHIT DITT TUE TTETITTUT TEE TTTE SITE HITTPITTIE TEIL II LIU IT 

1 HIN IE SUTE TI TTITIETTEETUTNUTUETIL TUT UI HTTE ATI DIE TUI 

IE JIINI U FIT II IIEHTTEETITTHTUIP L JUL DUTEEITT TEE DIT TEIITTI ITIEIT 

NIT ITIT TUT IT ET TEERTTETT TUE TUTEETT HIT TEL TUUE TUE IE FEIEETTTTT 

I THE TITTEN LTE FETE SU TETTEU TIP EIE NETT TUI 
„ 

: LU EITEITEE IT TTE TEE TUT EATTE TITEL I DL DITIET 

I HU FETTE IE IITD TEIT TUI TEI TEITE HIT THAT HUT ERLITT IE TT 
- 

= BRENNER RINIIDDEI DENT 

En 

IE THU III TIL HTTETTET TEUER TUTEITUEITE TI TEILT ELTEITEIN 
: 


4 


6 


18 


15 


16 
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11 


3 2 1 


4 


18 


ESUR 
Quersummenberechnung a 
= 16 ROWS 
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12 Fakultäten, Variationen und Kombinationen 


FRK 
20 8 
auch für Mengen größer 69 So 


«1 ROUS 


1 


"NDR DE DRIN 
Ba LIE UIT FUITIE DIET TINITIIT DID TIETTT I U EITTTTITEETELUTIE UL TEIT IE] 
Ba 1 HILTUTNIITE IT NE IE HINTND TEITTEHTTETT HE TER TEITIE IT TE TEE IL TU DIET 
U IT HIT HITNE TR LEITETTET DENT FIT EUTETTTETTEETEITTE TEIL TEITEE 
Ba II 1 UTHE UNI FTP ITE HTETITTTTTITEHTE DIT U U TEITTEITUTE TUE TUI UT 
UF THHTTTHITIE FL ETTNTITEITTEITEETT FETT DIE FIT LEITET 
a N UI TUT HIN II TEEI ITTIESTTEITTEITE TUE IT DUE TRITT ET EEE IIT 
a PIE DIT FETT FIT FIT THAT ITEITIE STEILE TI TEST HIT EIT LITE TI ET 
aa I ITENTT LINIE PFEITTIT EHI TEIT LIU TE STEETEITTETTTEIT FIT ETTTT 
< DNRINHRENITENBENNIRNNIRINDDIDIDII ID ENRRRRIDDIIDDEITDDRUREN 


en 


3 


[= 
S 


16 15 1 ı 1 1 18 


17 
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ss 34 33 32 31 3 2 o 28 27 26 25 24 23 22 zı 28 19 ı8 


36 


12 Fakultäten, Variationen 
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12 Fakultäten, Variationen 


49 39 38 37 


41 
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13 Bruchrechnen BREI 
345 OYTES 


= 69 ROWS 


i 


INIIUANIINILANIDTINIDIIBUNNTNIRRTIIIIDDLRNRNDDRTDNDDKLLANIDININN 
INTHENIIURIIIRDIDRIDRRILDNTRURITEUTENDIRURILRRLIDLNRRIDERRRENILIINN 
IINBUNINBIDENINLDADKILRNDDIKTTIIILUDERRRLTDERELLOERRU DE ERININ 
IIUTNERNIIINDNIBRNIANILUDIDIKLDDDIKLRIDDIRLDORRLIDORRLIRRRNININ 

° NUNIRBIRNRNRNINRRIIIDIKITIKRANDINRRLI DENIED ERINN 
°TRDBERRNKEDRIDDRU NIEDER RR NDRUDDTR IKT 
EHI TEE UT SIT HEUTE JE UT FHIT EEE TEST] 
a U TU FH II HET TEE TEE FEHLT EE TITTEN 
LU IE THE FIT TUI TEE UEETT TEE TUTTETTTTTTT 
= UNETRBNNIERNDERILNNDIDDEDIUERNDURDEN TIER ADRRURDNDNNNRII INN 
NBINIBRUIDORININDEITLIUNNRURNIIDUIIDDINKRNTONIRLDADITRLDANKUI NN 
INBRINKINRTIIDEDBRUIDIIIRRITENDALIIIDIITBRDRDANBULLDIDDDUNARNIINGNN 
INUIENNBBIIUHRRIIDIERIDDRIIDDDIIKIIITRUUTADDINRDARNURRTHUHIRNIIND 
INBIBRRARNNIINRRUNTIKRUIDANTIINKILLARNDTIRLURUDURURRILERLANGLLRIHN 
INIHREEENRTENERIIIDRNIRUIDDIRDURDDRRUDDDDIIIDRRRRIULLDDTNLUNI 
INBININIIUIIBRNNENNIBLIIENIKIIANITRRRTTERDIN RTL DDRDLI EHRE RNHRUNN 


3 2 


4 


15 14 13 12 11 1 


16 
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13 Bruchrechnen 


33 32 31 308 29 28 2? 26 25 24 23 22 21 29 19 18 17 


34 
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si 58 49 48 47 46 45 44 43 42 41 48 39 38 37 36 35 


s2 


._}3_Bruchrechnen 


68 87 86 685 64 63 62 61 68 59 Ss8 Ss? 56 s5 54 53 
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14 Brüche, schnell gekürzt BRUCH 
184 BYTES 


= 21 ROWS 


1 


UIINIRRIDEIITRNNDIAIIDTIEENRILDRLTIDEIDLRDERNDRDEINOIAATIINN 
11 117 TIT THIT III EUTTUITE SEIT TUI FE TUI TEE IT DT 
IHNEN 
LTE TTETTTE TI TTIE TETITEITTEITTEITTEIT IE TER U POTT LIT HT IT 
" PRLNRINRIIRRIINLIDEERNIIEDIEIDOTIIDDERIIIEERIENN 
IM 
11111 1 FHI II EETTUEEITTEIT EI7 FEITIEITL IE TLIIT LITE 
IM 
° IREENRRIIDINIIDDDDORTDNT III DODIEIIN 
ININININIBEN 
II TUI TUI HU LITTNITFITIE LUE TEL TUE TEIT TIL TEE STIL EI KU) 
INN 
® DRNBERNIDIEDRRRNITEIIIURIII DREIER ION) 
INININIIN 
Ba II IE UL T TEE TTETTTTTTET IET IETT TERSTETTTLTTTEE TEIITT 
KNIE 
= IEREIENIENNININIIINN! 
. INNBRIEIIIIIHIDIDII DIN 


3 


„ 
u 


16 


17 
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14 Brüche kürzen 
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VIEWEG-INFOWARE 


Lieber Leser, 


Sie haben ein Mikrocomputer-Buch aus 
dem Vieweg-Infoware-Angebot gekauft. 
Wir wünschen Ihnen viel Freude beim 
Lesen und Erfolg beim Durcharbeiten. 


Gern informieren wir Sie in Zukunft 
über Neuerscheinungen. Wenn Sie daran 
interessiert sind, schicken Sie uns bitte 
diese Karte ausgefüllt zurück. 


Wenn Sie an der Weiterentwicklung der 
Vieweg-Infoware mitarbeiten wollen, 
z.B. durch Veröffentlichung 
ausgetesteter Programme zu 
bestimmten Anwendungsgebieten, 
dann schreiben Sie uns. 


Mit freundlichen Grüßen 


Verlag Vieweg 


Bitte 
mit 


60 Pf. 
freimachen 
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Friedr. Vieweg & Sohn 
Verlagsgesellschaft mbH 
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VIEWEG PROGRAMMBIBLIOTHEK 
Mikrocomputer 


Die Bände der Programmnbibliothek enthalten ausgetestete Progra 
zu jeweils einem ausgewählten Themenschwerpunkt oder für ei 
aktuellen Mikrocomputer. Dabei wird der jeweilige Entwicklungss 
der Rechnertechnik berücksichtigt. 


Die Programme sind, ausgehend von einer konkreten Aufgabenstellu 

in der Regel in ihrem Ablauf beschrieben und durch ausgeführte Beispiele 
ergänzt. Wenn es nötig scheint, sind auch theoretische Grundlagen für 
die Programmierung erläutert. 


Durch die graphischen, tabellarischen oder in Textform gegeb 
Ablaufbeschreibungen wird die Übertragbarkeit auf andere Rec! 
typen erleichtert, so daß die wirtschaftliche Nutzung der einzelnen B 
möglich ist. An Hand gleichartiger Aufgabenstellungen wird fallv 
auch die unterschiedliche Arbeitsweise verschiedener Rechne 
aufgezeigt. 


Der Herausgeber bemüht sich ständig um eine sorgfältige Auswahl 
Begutachtung der eingesandten Programme. Trotzdem kann 
Gewährleistung für vollständige Fehlerfreiheit übernommen 
Programme zeigen ja oft erst nach vielen Testläufen mit wechsel, 
Parametern und Grenzbedingungen logische Fehlreaktionen und S 
gassen. 


Für die Fälle, die zu Anregungen oder Kritik führen, sind in jedem Band 
Anschriften der einzelnen Autoren angegeben. Wir erhoffen uns dad 
einen regen Gedankenaustausch zwischen Autoren und Benutzern 
Programmbibliothek, der sich für beide Seiten als nützlich e 
dürfte. 
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